PsL Monthly 1993 December

home *** CD-ROM | disk | FTP | other *** search

/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / c / stdlib2.com / STDLIB.A < prev next >

Wrap

Text File | 1991-03-08 | 23.7 KB | 1,437 lines

; ; Interface to standard library routines. ; ; ; slcall macro adrs db 9ah ;Far call opcode dd adrs endm ;------------------------------------------------ ; ; getc from getc.asm ; ; Calling sequence: ; ; getc ; ; Returns char read from standard input in AL. ; Getc- stdlib standard input (default is GetcRaw). ; GetcStdIn- DOS standard input, current mode (raw, cooked; default=cooked). ; GetcRaw- DOS standard input, raw mode. ; GetcBIOS- BIOS 16h input routine. ; getc macro ifndef sl_getc stdlib segment para public 'slcode' extrn sl_getc:far stdlib ends endif slcall sl_getc endm ; ; ; GetcStdIn macro ifndef sl_GetcStdIn stdlib segment para public 'slcode' extrn sl_GetcStdIn:far stdlib ends endif slcall sl_GetcStdIn endm ; ; ; ; GetcBIOS macro ifndef sl_GetcBIOS stdlib segment para public 'slcode' extrn sl_GetcBIOS:far stdlib ends endif slcall sl_GetcBIOS endm ; ; SetInBIOS macro ifndef sl_SetInBIOS stdlib segment para public 'slcode' extrn sl_SetInBIOS:far stdlib ends endif slcall sl_SetInBIOS endm ; SetInStd macro ifndef sl_SetInStd stdlib segment para public 'slcode' extrn sl_SetInStd:far stdlib ends endif slcall sl_SetInStd endm ; ; ; SetInAdrs macro ifndef sl_SetInAdrs stdlib segment para public 'slcode' extrn sl_SetInAdrs:far stdlib ends endif slcall sl_SetInAdrs endm ; ; GetInAdrs macro ifndef sl_GetInAdrs stdlib segment para public 'slcode' extrn sl_GetInAdrs:far stdlib ends endif slcall sl_GetInAdrs endm ; ; PushInAdrs macro ifndef sl_PushInAdrs stdlib segment para public 'slcode' extrn sl_PushInAdrs:far stdlib ends endif slcall sl_PushInAdrs endm ; ; PopInAdrs macro ifndef sl_PopInAdrs stdlib segment para public 'slcode' extrn sl_PopInAdrs:far stdlib ends endif slcall sl_PopInAdrs endm ; ; ;------------------------------------------------ ; ; gets from gets.asm ; ; Calling sequence: ; ; gets ; ; Reads a string from the standard input (up to EOLN), allocates storage ; for that string on the heap, and returns a pointer to that string in ; ES:SI. ; ; gets macro ifndef sl_gets stdlib segment para public 'slcode' extrn sl_gets:far stdlib ends endif slcall sl_gets endm ; ; atol macro ifndef sl_atol stdlib segment para public 'slcode' extrn sl_atol:far stdlib ends endif slcall sl_atol endm ; atoul macro ifndef sl_atoul stdlib segment para public 'slcode' extrn sl_atoul:far stdlib ends endif slcall sl_atoul endm ; ; ; atol2 macro ifndef sl_atol2 stdlib segment para public 'slcode' extrn sl_atol2:far stdlib ends endif slcall sl_atol2 endm ; atoul2 macro ifndef sl_atoul2 stdlib segment para public 'slcode' extrn sl_atoul2:far stdlib ends endif slcall sl_atoul2 endm ; ; ; atoi and atou from atoi.asm ; atoi macro ifndef sl_atoi stdlib segment para public 'slcode' extrn sl_atoi:far stdlib ends endif slcall sl_atoi endm ; atou macro ifndef sl_atou stdlib segment para public 'slcode' extrn sl_atou:far stdlib ends endif slcall sl_atou endm ; ; atoi2 macro ifndef sl_atoi2 stdlib segment para public 'slcode' extrn sl_atoi2:far stdlib ends endif slcall sl_atoi2 endm ; atou2 macro ifndef sl_atou2 stdlib segment para public 'slcode' extrn sl_atou2:far stdlib ends endif slcall sl_atou2 endm ; ; ; atoh/2 and atolh/2 from atoh.asm ; atoh macro ifndef sl_atoh stdlib segment para public 'slcode' extrn sl_atoh:far stdlib ends endif slcall sl_atoh endm ; ; atolh macro ifndef sl_atolh stdlib segment para public 'slcode' extrn sl_atolh:far stdlib ends endif slcall sl_atolh endm ; ; atoh2 macro ifndef sl_atoh2 stdlib segment para public 'slcode' extrn sl_atoh2:far stdlib ends endif slcall sl_atoh2 endm ; ; atolh2 macro ifndef sl_atolh2 stdlib segment para public 'slcode' extrn sl_atolh2:far stdlib ends endif slcall sl_atolh2 endm ; ; ;------------------------------------------------ ; ; ISize macro ifndef sl_ISize stdlib segment para public 'slcode' extrn sl_ISize:far stdlib ends endif slcall sl_Isize endm ; USize macro ifndef sl_USize stdlib segment para public 'slcode' extrn sl_USize:far stdlib ends endif slcall sl_USize endm ; ; ; LSize and ULSize from lsize.asm ; LSize macro ifndef sl_LSize stdlib segment para public 'slcode' extrn sl_LSize:far stdlib ends endif slcall sl_Lsize endm ; ULSize macro ifndef sl_ULSize stdlib segment para public 'slcode' extrn sl_ULSize:far stdlib ends endif slcall sl_ULSize endm ; ; ;----------------------------------------------------------------------- ; ; Print macro ifndef sl_print stdlib segment para public 'slcode' extrn sl_print:far stdlib ends endif slcall sl_print endm ; ;--------------------------------------------------------------------------- ; ; Printf macro ifndef sl_printf stdlib segment para public 'slcode' extrn sl_printf:far stdlib ends endif slcall sl_printf endm ; ; SPrintf macro ifndef sl_sprintf stdlib segment para public 'slcode' extrn sl_sprintf:far ifndef sp_BufSize extrn sp_BufSize:word endif stdlib ends endif slcall sl_sprintf endm ; ; SBPrintf macro ifndef sl_sbprintf stdlib segment para public 'slcode' extrn sl_sbprintf:far stdlib ends endif slcall sl_sbprintf endm ; ; ; Scanf macro ifndef sl_scanf stdlib segment para public 'slcode' extrn sl_scanf:far stdlib ends endif slcall sl_scanf endm ; SScanf macro ifndef sl_sscanf stdlib segment para public 'slcode' extrn sl_sscanf:far stdlib ends endif slcall sl_sscanf endm ; ; ;--------------------------------------------------------------------------- ; ; Putc macro ifndef sl_putc stdlib segment para public 'slcode' extrn sl_putc:far stdlib ends endif slcall sl_putc endm ; ; Putcr macro ifndef sl_putcr stdlib segment para public 'slcode' extrn sl_putcr:far stdlib ends endif slcall sl_putcr endm ; ; ; PutcStdOut macro ifndef sl_putcStdOut stdlib segment para public 'slcode' extrn sl_putcStdOut:far stdlib ends endif slcall sl_putcStdOut endm ; ; ; PutcBIOS macro ifndef sl_putcBIOS stdlib segment para public 'slcode' extrn sl_putcBIOS:far stdlib ends endif slcall sl_putcBIOS endm ; ; ; SetOutAdrs macro ifndef sl_SetOutAdrs stdlib segment para public 'slcode' extrn sl_SetOutAdrs:far stdlib ends endif slcall sl_SetOutAdrs endm ; ; GetOutAdrs macro ifndef sl_GetOutAdrs stdlib segment para public 'slcode' extrn sl_GetOutAdrs:far stdlib ends endif slcall sl_GetOutAdrs endm ; ; PushOutAdrs macro ifndef sl_PushOutAdrs stdlib segment para public 'slcode' extrn sl_PushOutAdrs:far stdlib ends endif slcall sl_PushOutAdrs endm ; ; PopOutAdrs macro ifndef sl_PopOutAdrs stdlib segment para public 'slcode' extrn sl_PopOutAdrs:far stdlib ends endif slcall sl_PopOutAdrs endm ; ; PutISize macro ifndef sl_putisize stdlib segment para public 'slcode' extrn sl_putisize:far stdlib ends endif slcall sl_putisize endm ; ; PutUSize macro ifndef sl_putusize stdlib segment para public 'slcode' extrn sl_putusize:far stdlib ends endif slcall sl_putusize endm ; ; ; PutLSize macro ifndef sl_putlsize stdlib segment para public 'slcode' extrn sl_putlsize:far stdlib ends endif slcall sl_putlsize endm ; ; PutULSize macro ifndef sl_putulsize stdlib segment para public 'slcode' extrn sl_putulsize:far stdlib ends endif slcall sl_putulsize endm ; ; ;--------------------------------------------------------------------------- ; ; Puts macro ifndef sl_puts stdlib segment para public 'slcode' extrn sl_puts:far stdlib ends endif slcall sl_puts endm ; ; ;---------------------------------------------------------------------------- ; ; Puth macro ifndef sl_puth stdlib segment para public 'slcode' extrn sl_puth:far stdlib ends endif slcall sl_puth endm ; ; Putw macro ifndef sl_putw stdlib segment para public 'slcode' extrn sl_putw:far stdlib ends endif slcall sl_putw endm ; ;--------------------------------------------------------------------------- ; Puti macro ifndef sl_puti stdlib segment para public 'slcode' extrn sl_puti:far stdlib ends endif slcall sl_puti endm ; ; Putu macro ifndef sl_putu stdlib segment para public 'slcode' extrn sl_putu:far stdlib ends endif slcall sl_putu endm ; ; ; Putl macro ifndef sl_putl stdlib segment para public 'slcode' extrn sl_putl:far stdlib ends endif slcall sl_putl endm ; ; PutUL macro ifndef sl_putul stdlib segment para public 'slcode' extrn sl_putul:far stdlib ends endif slcall sl_putul endm ; ; ;-------------------------------------------------------------------------- ; ; itoa macro ifndef sl_itoa stdlib segment para public 'slcode' extrn sl_itoa:far stdlib ends endif slcall sl_itoa endm ; ; utoa macro ifndef sl_utoa stdlib segment para public 'slcode' extrn sl_utoa:far stdlib ends endif slcall sl_utoa endm ; ; ; htoa macro ifndef sl_htoa stdlib segment para public 'slcode' extrn sl_htoa:far stdlib ends endif slcall sl_htoa endm ; ; wtoa macro ifndef sl_wtoa stdlib segment para public 'slcode' extrn sl_wtoa:far stdlib ends endif slcall sl_wtoa endm ; ; ; ltoa macro ifndef sl_ltoa stdlib segment para public 'slcode' extrn sl_ltoa:far stdlib ends endif slcall sl_ltoa endm ; ; ; ultoa macro ifndef sl_ultoa stdlib segment para public 'slcode' extrn sl_ultoa:far stdlib ends endif slcall sl_ultoa endm ; ; ; MemInit macro ifndef sl_MemInit stdlib segment para public 'slcode' extrn sl_MemInit:far stdlib ends endif slcall sl_MemInit endm ; ; ; malloc macro ifndef sl_malloc stdlib segment para public 'slcode' extrn sl_malloc:far stdlib ends endif slcall sl_malloc endm ; ; realloc macro ifndef sl_realloc stdlib segment para public 'slcode' extrn sl_realloc:far stdlib ends endif slcall sl_realloc endm ; ; DupPtr macro ifndef sl_dupptr stdlib segment para public 'slcode' extrn sl_dupptr:far stdlib ends endif slcall sl_dupptr endm ; ; free macro ifndef sl_free stdlib segment para public 'slcode' extrn sl_free:far stdlib ends endif slcall sl_free endm ; ; ; ; IsInHeap macro ifndef sl_IsInHeap stdlib segment para public 'slcode' extrn sl_IsInHeap:far stdlib ends endif slcall sl_IsInHeap endm ; ; IsPtr macro ifndef sl_IsPtr stdlib segment para public 'slcode' extrn sl_IsPtr:far stdlib ends endif slcall sl_IsPtr endm ; ; ;--------------------------------------------------------------------------- ; IsAlNum macro ifndef sl_IsAlNum stdlib segment para public 'slcode' extrn sl_IsAlNum:far stdlib ends endif slcall sl_IsAlNum endm ; ; ; IsxDigit- Checks al to see if it is a hex digit. ; IsxDigit macro ifndef sl_IsxDigit stdlib segment para public 'slcode' extrn sl_IsxDigit:far stdlib ends endif slcall sl_IsxDigit endm ; ; ; ToLower macro local NoCnvrt cmp al, 'A' jb NoCnvrt cmp al, 'Z' ja NoCnvrt or al, 20h NoCnvrt: endm ; ; ; ToUpper macro local NoCnvrt cmp al, 'a' jb NoCnvrt cmp al, 'z' ja NoCnvrt and al, 05fh NoCnvrt: endm ; ; ; IsDigit macro local NotDigit, IsDigit cmp al, '0' jb NotDigit ;Note: this also clears ZF. cmp al, '9' ja NotDigit ;Also clears ZF. cmp al, al ;Set Zero flag NotDigit: endm ; ; ; IsAlpha macro local IsAl, NotAlpha cmp al, 'A' jb NotAlpha ;Also clears ZF. cmp al, 'Z' jbe IsAl cmp al, 'a' jb NotAlpha cmp al, 'z' ja NotAlpha IsAl: cmp al, al ;Set ZF. NotAlpha: endm ; ; IsLower macro local NotLower cmp al, 'a' jb NotLower cmp al, 'z' ja NotLower cmp al, al ;Set ZF. NotLower: endm ; ; ; IsUpper- Checks to see if the character in al is upper case. ; IsUpper macro local NotUpper cmp al, 'A' jb NotUpper cmp al, 'Z' ja NotUpper cmp al, al ;Set ZF. NotUpper: endm ; ; ;-------------------------------------------------------------------------- ; ; strcpy macro ifndef sl_strcpy stdlib segment para public 'slcode' extrn sl_strcpy:far stdlib ends endif slcall sl_strcpy endm ; ; ; ; strcpyl macro ifndef sl_strcpyl stdlib segment para public 'slcode' extrn sl_strcpyl:far stdlib ends endif slcall sl_strcpyl endm ; ; ; strdup macro ifndef sl_strdup stdlib segment para public 'slcode' extrn sl_strdup:far stdlib ends endif slcall sl_strdup endm ; ; ; strdupl macro ifndef sl_strdupl stdlib segment para public 'slcode' extrn sl_strdupl:far stdlib ends endif slcall sl_strdupl endm ; ; strlen macro ifndef sl_strlen stdlib segment para public 'slcode' extrn sl_strlen:far stdlib ends endif slcall sl_strlen endm ; ; strcat macro ifndef sl_strcat stdlib segment para public 'slcode' extrn sl_strcat:far stdlib ends endif slcall sl_strcat endm ; ; strcatl macro ifndef sl_strcatl stdlib segment para public 'slcode' extrn sl_strcatl:far stdlib ends endif slcall sl_strcatl endm ; ; strcat2 macro ifndef sl_strcat2 stdlib segment para public 'slcode' extrn sl_strcat2:far stdlib ends endif slcall sl_strcat2 endm ; ; ; strcat2l macro ifndef sl_strcat2l stdlib segment para public 'slcode' extrn sl_strcat2l:far stdlib ends endif slcall sl_strcat2l endm ; ; ; strchr macro ifndef sl_strchr stdlib segment para public 'slcode' extrn sl_strchr:far stdlib ends endif slcall sl_strchr endm ; ; strstr macro ifndef sl_strstr stdlib segment para public 'slcode' extrn sl_strstr:far stdlib ends endif slcall sl_strstr endm ; ; ; strstrl macro ifndef sl_strstrl stdlib segment para public 'slcode' extrn sl_strstrl:far stdlib ends endif slcall sl_strstrl endm ; ; ; strcmp macro ifndef sl_strcmp stdlib segment para public 'slcode' extrn sl_strcmp:far stdlib ends endif slcall sl_strcmp endm ; ; ; stricmp- As with strcmp above, except it is case insensitive. ; stricmp macro ifndef sl_stricmp stdlib segment para public 'slcode' extrn sl_stricmp:far stdlib ends endif slcall sl_stricmp endm ; ; stricmpl macro ifndef sl_stricmpl stdlib segment para public 'slcode' extrn sl_stricmpl:far stdlib ends endif slcall sl_stricmpl endm ; strcmpl macro ifndef sl_strcmpl stdlib segment para public 'slcode' extrn sl_strcmpl:far stdlib ends endif slcall sl_strcmpl endm ; ; strupr macro ifndef sl_strupr stdlib segment para public 'slcode' extrn sl_strupr:far stdlib ends endif slcall sl_strupr endm ; ; strupr2 macro ifndef sl_strupr2 stdlib segment para public 'slcode' extrn sl_strupr2:far stdlib ends endif slcall sl_strupr2 endm ; ; strlwr macro ifndef sl_strlwr stdlib segment para public 'slcode' extrn sl_strlwr:far stdlib ends endif slcall sl_strlwr endm ; ; strlwr2 macro ifndef sl_strlwr2 stdlib segment para public 'slcode' extrn sl_strlwr2:far stdlib ends endif slcall sl_strlwr2 endm ; ; strset macro ifndef sl_strset stdlib segment para public 'slcode' extrn sl_strset:far stdlib ends endif slcall sl_strset endm ; ; strset2 macro ifndef sl_strset2 stdlib segment para public 'slcode' extrn sl_strset2:far stdlib ends endif slcall sl_strset2 endm ; ; strspan macro ifndef sl_strspan stdlib segment para public 'slcode' extrn sl_strspan:far stdlib ends endif slcall sl_strspan endm ; ; ; strspanl macro ifndef sl_strspanl stdlib segment para public 'slcode' extrn sl_strspanl:far stdlib ends endif slcall sl_strspanl endm ; ; ; strcspan macro ifndef sl_strcspan stdlib segment para public 'slcode' extrn sl_strcspan:far stdlib ends endif slcall sl_strcspan endm ; ; ; strcspanl macro ifndef sl_strcspanl stdlib segment para public 'slcode' extrn sl_strcspanl:far stdlib ends endif slcall sl_strcspanl endm ; ; strins macro ifndef sl_strins stdlib segment para public 'slcode' extrn sl_strins:far stdlib ends endif slcall sl_strins endm ; strinsl macro ifndef sl_strinsl stdlib segment para public 'slcode' extrn sl_strinsl:far stdlib ends endif slcall sl_strinsl endm ; ; strins2 macro ifndef sl_strins2 stdlib segment para public 'slcode' extrn sl_strins2:far stdlib ends endif slcall sl_strins2 endm ; strins2l macro ifndef sl_strins2l stdlib segment para public 'slcode' extrn sl_strins2l:far stdlib ends endif slcall sl_strins2l endm ; strdel macro ifndef sl_strdel stdlib segment para public 'slcode' extrn sl_strdel:far stdlib ends endif slcall sl_strdel endm ; strdel2 macro ifndef sl_strdel2 stdlib segment para public 'slcode' extrn sl_strdel2:far stdlib ends endif slcall sl_strdel2 endm ; strrev macro ifndef sl_strrev stdlib segment para public 'slcode' extrn sl_strrev:far stdlib ends endif slcall sl_strrev endm ; strrev2 macro ifndef sl_strrev2 stdlib segment para public 'slcode' extrn sl_strrev2:far stdlib ends endif slcall sl_strrev2 endm ; ; ; ; set macro n0,n1,n2,n3,n4,n5,n6,n7 n0 db 1 n1 db 2 n2 db 4 n3 db 8 n4 db 10h n5 db 20h n6 db 40h n7 db 80h db 264 dup (0) endm ; ; CreateSets macro ifndef sl_CreateSets stdlib segment para public 'slcode' extrn sl_CreateSets:far stdlib ends endif slcall sl_CreateSets endm ; ; EmptySet macro ifndef sl_EmptySet stdlib segment para public 'slcode' extrn sl_EmptySet:far stdlib ends endif slcall sl_EmptySet endm ; ; RangeSet macro ifndef sl_RangeSet stdlib segment para public 'slcode' extrn sl_RangeSet:far stdlib ends endif slcall sl_RangeSet endm ; ; AddStr macro ifndef sl_AddStr stdlib segment para public 'slcode' extrn sl_AddStr:far stdlib ends endif slcall sl_AddStr endm ; ; AddStrl macro ifndef sl_AddStrl stdlib segment para public 'slcode' extrn sl_AddStrl:far stdlib ends endif slcall sl_AddStrl endm ; ; RmvStr macro ifndef sl_RmvStr stdlib segment para public 'slcode' extrn sl_RmvStr:far stdlib ends endif slcall sl_RmvStr endm ; ; RmvStrl macro ifndef sl_RmvStrl stdlib segment para public 'slcode' extrn sl_RmvStrl:far stdlib ends endif slcall sl_RmvStrl endm ; ; AddChar macro ifndef sl_AddChar stdlib segment para public 'slcode' extrn sl_AddChar:far stdlib ends endif slcall sl_AddChar endm ; ; RmvChar macro ifndef sl_RmvChar stdlib segment para public 'slcode' extrn sl_RmvChar:far stdlib ends endif slcall sl_RmvChar endm ; ; Member macro ifndef sl_member stdlib segment para public 'slcode' extrn sl_member:far stdlib ends endif slcall sl_member endm ; ; CopySet macro ifndef sl_CopySet stdlib segment para public 'slcode' extrn sl_CopySet:far stdlib ends endif slcall sl_CopySet endm ; ; setunion macro ifndef sl_union stdlib segment para public 'slcode' extrn sl_union:far stdlib ends endif slcall sl_union endm ; ; SetIntersect macro ifndef sl_Intersect stdlib segment para public 'slcode' extrn sl_Intersect:far stdlib ends endif slcall sl_Intersect endm ; ; SetDifference macro ifndef sl_Difference stdlib segment para public 'slcode' extrn sl_Difference:far stdlib ends endif slcall sl_Difference endm ; ; NextItem macro ifndef sl_NextItem stdlib segment para public 'slcode' extrn sl_NextItem:far stdlib ends endif slcall sl_NextItem endm ; ; RmvItem macro ifndef sl_RmvItem stdlib segment para public 'slcode' extrn sl_RmvItem:far stdlib ends endif slcall sl_RmvItem endm ; ;--------------------------------------------------------------------------- ; lsfpa macro ifndef sl_lsfpa stdlib segment para public 'slcode' extrn sl_lsfpa:far stdlib ends endif slcall sl_lsfpa endm ; ldfpa macro ifndef sl_ldfpa stdlib segment para public 'slcode' extrn sl_ldfpa:far stdlib ends endif slcall sl_ldfpa endm ; lsfpo macro ifndef sl_lsfpo stdlib segment para public 'slcode' extrn sl_lsfpo:far stdlib ends endif slcall sl_lsfpo endm ; ldfpo macro ifndef sl_ldfpo stdlib segment para public 'slcode' extrn sl_ldfpo:far stdlib ends endif slcall sl_ldfpo endm ; fpadd macro ifndef sl_fadd stdlib segment para public 'slcode' extrn sl_fadd:far stdlib ends endif slcall sl_fadd endm ; fpsub macro ifndef sl_fsub stdlib segment para public 'slcode' extrn sl_fsub:far stdlib ends endif slcall sl_fsub endm ; fpmul macro ifndef sl_fmul stdlib segment para public 'slcode' extrn sl_fmul:far stdlib ends endif slcall sl_fmul endm ; fpdiv macro ifndef sl_fdiv stdlib segment para public 'slcode' extrn sl_fdiv:far stdlib ends endif slcall sl_fdiv endm ; ; ; ; ; ;-------------------------------------------------------------------------- ; ; ; Routines to add: ; ; getenv, argc, argv ; ; ; String Routines: ; ; strins, strinsl, strins2, strins2l, strdel, strdel2, substr, substr2 ; ; File routines: ; ; fclose, feof, fflush, fgetc, fputc, fgetpos, fgets, filelength, fopen, ; fprintf, fputs, fread, fscanf, fseek, fstat, fwrite ; ; getcwd, mkdir, chdir, mktemp, remove, rename, rewind, rmdir, rmtemp, ;